home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 53 / 64er_Magazin_Sonderheft_53_19xx_Markt__Technik_de_Side_A.d64 / source init 31 k (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  65 lines
  1. 10 ;*********************************
  2. 11 ;
  3. 12 ; bildschirmspeicher verschieben
  4. 13 ; ------------------------------
  5. 14 ;
  6. 15 ; giga-ass hilfs-routine
  7. 16 ;
  8. 17 ; der bildschirmspeicher wird
  9. 18 ; von $0400-$07ff nach $cc00-
  10. 19 ; $cfff verschoben.
  11. 20 ;
  12. 21 ; danach ist der quelltextspeicher
  13. 22 ; in $0400-$8000 (31 k).
  14. 23 ;
  15. 24 ;*********************************
  16. 100 step"init 31 k,p,w"
  17. 110 +$2c3
  18. 120 tab(p=$fc
  19. 130 ;
  20. 140 ; 1. rom-zeichensatz in ram
  21. 150 ;    umkopieren ($d000-$dfff)
  22. 160 ;
  23. 170 start len#0
  24. 180  (NULL)p
  25. 190  mid$#$d0
  26. 200  (NULL)p+1
  27. 210  (NULL)
  28. 220 loop mid$#$33
  29. 230  (NULL)1
  30. 240  mid$&p,y
  31. 250  (NULL)1
  32. 260  (NULL)&p,y
  33. 270  right$p
  34. 280  (NULL)loop
  35. 290  right$p+1
  36. 300  peekp+1
  37. 310  tan#$e0
  38. 320  (NULL)loop
  39. 330  mid$#$37
  40. 340  (NULL)1
  41. 350 ;
  42. 360 ; 2. alten bildschirm-ram freigeben
  43. 370 ;
  44. 380  mid$#4
  45. 390  (NULL)$282
  46. 400 ;
  47. 410 ; 3. bildschirmspeicher auf $cc00
  48. 420 ;
  49. 430  mid$$dd00
  50. 440  asc#%11111100
  51. 450  (NULL)$dd00
  52. 460  mid$#$35
  53. 470  (NULL)$d018
  54. 480  mid$#$cc
  55. 490  (NULL)$288
  56. 500 ;
  57. 510 ; 4. giga-ass re-initialisieren
  58. 520 ;
  59. 530  (NULL)($8009)
  60. 540 ;
  61. 550 ; 5. auto-start adresse setzen
  62. 560 ;
  63. 570  spc(0,start
  64. 580 <
  65.